home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 07, No. 05 (1986-05)(MicroSPARC)(Side A).zip / Nibble Volume 07, No. 05 (1986-05)(MicroSPARC)(Side A).po / DESCRIPTION.bas < prev    next >
BASIC Source File  |  1996-12-24  |  4KB  |  52 lines
  1. 5  TEXT : HOME 
  2. 10  POKE 216,0
  3. 15  RESTORE 
  4. 20  HOME : VTAB 3
  5. 30  READ D: DIM P$(D,2):D$ =  CHR$(4)
  6. 40  REM MICROSPARC, INC.
  7. 50  PRINT : PRINT "Thank you for your order of the NIBBLE": PRINT "May 1986 (A) diskette!": PRINT 
  8. 60  PRINT "The programs on this side of the disk   are as follows:<CTRL-M><CTRL-M>* DISK LIBRARIAN PRO<CTRL-M><CTRL-M>* SUPERSORT<CTRL-M><CTRL-M>* FUNNY FACE  
  9. 70  PRINT :K$ = "next page": GOSUB 290
  10. 80  HOME 
  11. 90  VTAB 3: PRINT "Documentation for the programs is ": PRINT "provided in the magazine.": PRINT : PRINT "If the introductory period has ended,": PRINT "the pages shipped with the disk provide the documentation.": PRINT :
  12. 100  REM 
  13. 105  PRINT "Use the FILER program or your Apple     Utilities disk to copy programs from    this diskette onto another.": PRINT 
  14. 107  PRINT "Boot the DOS 3.3 side of this disk for  special instructions on copying files   and creating work disks."
  15. 110  PRINT : GOSUB 290
  16. 240  HOME : VTAB 3: PRINT "Thanks again for your order!!": FOR I = 1 TO 5: PRINT : NEXT 
  17. 250  VTAB 12: INVERSE : PRINT "ALL PROGRAMS ON THIS DISK ARE": PRINT "COPYRIGHT (C) 1986  BY NIBBLE": PRINT "MICROSPARC, INC.  CONCORD, MA": NORMAL : PRINT : PRINT "Unauthorized copying is illegal."
  18. 260  PRINT :K$ = "menu": GOSUB 290: GOSUB 310
  19. 270  HOME : PRINT : PRINT  CHR$(4);"CAT": POKE 54,240: POKE 55,253: CALL 1002: END 
  20. 290  PRINT : PRINT "-= Press space bar for "K$" =-";: POKE 49168,0: WAIT  -16384,128: PRINT : RETURN 
  21. 300  HOME 
  22. 310  RESTORE :X$(0) = "   ":X$(1) = "-->": HOME 
  23. 320  READ MX: FOR I = 1 TO MX -2: READ T$,X$: VTAB 4 +1 *I -18 *(I >9): HTAB 8 +20 *(I >9): PRINT I". Run "X$: NEXT : VTAB 4 +1 *(MX -1) -18 *(MX -1 >9): HTAB 8 +20 *(MX -1 >9): PRINT MX -1". Catalog Disk": GOSUB 800: VTAB 1: PRINT "<Select File>": VTAB 3: PRINT "---------------------------------------"
  24. 330  VTAB 1: HTAB 23: PRINT "ESC: Instructions"
  25. 340  VTAB 22: PRINT "Type number, or use arrows, then press": PRINT "Return :": VTAB 21: PRINT "---------------------------------------":PX = 10:SX = 4:SL = 1: GOSUB 350: GOTO 430
  26. 350 N = SL:OS = SL: GOSUB 420:Z = 0: VTAB 24: CALL  -868
  27. 360  VTAB 23: HTAB PX: PRINT SL: POKE 49168,0: WAIT  -16384,128::Z$ =  CHR$( PEEK( -16384) -128): IF Z$ > = "1"  AND Z$ < =  STR$(MX)  THEN SL =  VAL(Z$):N = OS: GOSUB 420: GOSUB 490: GOTO 350
  28. 370 Z = (Z$ =  CHR$(21)  OR Z$ =  CHR$(10)) -(Z$ =  CHR$(8)  OR Z$ =  CHR$(11)) +10 *(Z$ =  CHR$(13)) +20 *(Z$ =  CHR$(27)): ON   NOT Z GOTO 520
  29. 380  IF Z = 20  THEN  HOME : CLEAR : GOTO 20
  30. 390 SL = SL +Z *(Z <10):SL = SL -MX *(SL >MX) +MX *(SL <1): IF  PEEK(1360) = 193  OR  PEEK(1360) = 211  THEN  VTAB 19: HTAB 1: PRINT "                                       ": VTAB 2: HTAB 1: PRINT "                    "
  31. 400 N = OS: GOSUB 420: ON Z <10 GOTO 350
  32. 410  RETURN 
  33. 420  VTAB 4 +1 *N -18 *(N >9): HTAB SX +20 *(N >9): PRINT X$(SL = OS);: RETURN 
  34. 430  VTAB 19: RESTORE : READ N1: FOR XX = 1 TO SL: READ T$,FILE$: NEXT XX: IF FILE$ = "QUIT"  THEN  GOSUB 530
  35. 435  IF FILE$ = "CATALOG"  THEN 700
  36. 440  VTAB 2: HTAB 1: PRINT "                   ": INVERSE : VTAB 2: HTAB 1: PRINT FILE$: NORMAL : ONERR  GOTO 465
  37. 450  POKE 49168,0: PRINT  CHR$(4);"-";FILE$
  38. 465  REM 
  39. 470  IF  PEEK(222) = 6  THEN  FOR SF = 4 TO 18: VTAB SF: PRINT "       ": NEXT SF: VTAB 19: PRINT "<CTRL-G>Sorry. That file is not on this disk !": RESTORE : GOTO 320
  40. 480  FOR SF = 4 TO 18: VTAB SF: PRINT "       ": NEXT SF: VTAB 19: PRINT  CHR$(7);"A disk error has occurred. Check drive.": RESTORE : GOTO 320
  41. 490  IF  PEEK(1360) = 193  OR  PEEK(1360) = 211  THEN  VTAB 19: HTAB 1: PRINT "                                       ": VTAB 2: HTAB 1: PRINT "                    "
  42. 500  RETURN 
  43. 510  DATA   7,B,LIBRARIAN,A,LIBRARIAN.EDIT,A,FUNNY.FACE,A,BRIDGE.HANDS,A,GALE.DEMO,N,CATALOG,N,QUIT
  44. 520  FOR EQ = 1 TO 10:EY =  PEEK( -16336) - PEEK( -16336): NEXT EQ: GOTO 360
  45. 530  VTAB 21: PRINT : CALL  -958: PRINT "Do you really want to quit? (Y/N)";: POKE 49168,0
  46. 540  INPUT " ";MM$
  47. 550  IF  LEFT$(MM$,1) = "Y"  OR  LEFT$(MM$,1) = "Y"  THEN  HOME : END 
  48. 560  FOR SF = 4 TO 18: VTAB SF: PRINT "       ": NEXT SF
  49. 570  POP : GOTO 340
  50. 700  HOME : PRINT : POKE 49168,0: PRINT  CHR$(4);"CAT": PRINT :K$ = "menu.": GOSUB 290
  51. 710  GOTO 300
  52. 800  VTAB 4 +1 *MX -18 *(MX >9): HTAB 8 +20 *(MX >9): PRINT MX". Quit": RETURN